unit AboutFormUnit; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ExtCtrls, StdCtrls;

type

  { TAboutForm }

  TAboutForm = class(TForm)
    ImageLOGO: TImage;
    afStaticText: TStaticText;
    procedure FormClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: char);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  AboutForm: TAboutForm;

implementation

{ TAboutForm }

procedure TAboutForm.FormClick(Sender: TObject);
begin
  close;
end;

procedure TAboutForm.FormKeyPress(Sender: TObject; var Key: char);
begin
  close;
end;

initialization
  {$I aboutformunit.lrs}

end.

